home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / aros / dos / cli.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-12  |  1.4 KB  |  66 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: cli.c,v 1.3 1996/08/13 13:52:45 digulla Exp $
  4.     $Log: cli.c,v $
  5.     Revision 1.3  1996/08/13 13:52:45  digulla
  6.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  7.     Replaced __AROS_LA by __AROS_LHA
  8.  
  9.     Revision 1.2  1996/08/01 17:40:48  digulla
  10.     Added standard header for all files
  11.  
  12.     Desc:
  13.     Lang: english
  14. */
  15. #include <clib/exec_protos.h>
  16. #include "dos_intern.h"
  17.  
  18. /*****************************************************************************
  19.  
  20.     NAME */
  21.     #include <clib/dos_protos.h>
  22.  
  23.     __AROS_LH0(struct CommandLineInterface *, Cli,
  24.  
  25. /*  SYNOPSIS */
  26.  
  27. /*  LOCATION */
  28.     struct DosLibrary *, DOSBase, 82, Dos)
  29.  
  30. /*  FUNCTION
  31.     Returns a pointer to the CLI structure of the current process.
  32.  
  33.     INPUTS
  34.  
  35.     RESULT
  36.     Pointer to CLI structure.
  37.  
  38.     NOTES
  39.     Do not use this function to test if the process was started from
  40.     the shell. Check pr_CLI instead.
  41.  
  42.     EXAMPLE
  43.  
  44.     BUGS
  45.  
  46.     SEE ALSO
  47.  
  48.     INTERNALS
  49.  
  50.     HISTORY
  51.     29-10-95    digulla automatically created from
  52.                 dos_lib.fd and clib/dos_protos.h
  53.  
  54. *****************************************************************************/
  55. {
  56.     __AROS_FUNC_INIT
  57.     __AROS_BASE_EXT_DECL(struct DosLibrary *,DOSBase)
  58.  
  59.     /* Get pointer to process structure */
  60.     struct Process *me=(struct Process *)FindTask(NULL);
  61.  
  62.     /* Nothing spectacular */
  63.     return (struct CommandLineInterface *)BADDR(me->pr_CLI);
  64.     __AROS_FUNC_EXIT
  65. } /* Cli */
  66.